home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / HyperStudio Preview 2 / HyperLogo / Exploring HyperLogo / More Samples / Test Results / Test Results.rsrc / WkSp_128 < prev   
Encoding:
Text File  |  1994-12-13  |  1.3 KB  |  72 lines
  1. MAKE "x 8
  2.  
  3.  
  4. TO ClearLine :line
  5. SETFIELDTEXT [] WORD "Name :line " 
  6. SETFIELDTEXT [] WORD "Right :line " 
  7. SETFIELDTEXT [] WORD "Max :line " 
  8. SETFIELDTEXT [] WORD "Percent :line " 
  9. END
  10.  
  11. TO FindP :string
  12. LOCAL "line
  13. LABEL "top
  14. MAKE "line READWORD
  15. IF EMPTYP :line [OUTPUT "FALSE]
  16. IF EQUALP :line :string [OUTPUT "TRUE]
  17. GO "top
  18. END
  19.  
  20. TO SetTestResults :results
  21. LOCAL "x
  22. MAKE "x 1
  23. LOCAL "c
  24. MAKE "c 7
  25. IF COUNT :results < 7 [MAKE "c COUNT :results]
  26. REPEAT :c [SetResult ITEM :x :results :x MAKE "x :x + 1]
  27. END
  28.  
  29. TO ReadTestResults
  30. LOCAL "file
  31. LOCAL "results
  32. MAKE "file "HS.Test.Results
  33. OPEN :file
  34. SETREAD :file
  35. MAKE "results GetResults
  36. CLOSE :file
  37. OUTPUT :results
  38. END
  39.  
  40. TO GetResults
  41. LOCAL "x
  42. MAKE "x []
  43. LOCAL "y
  44. DOUNTIL [MAKE "y GetResult IF NOT EMPTYP :y [MAKE "x FPUT :y :x]] EMPTYP :y
  45. OUTPUT :x
  46. END
  47.  
  48. TO GetResult
  49. IF NOT FindP "Test\ Stack [OUTPUT []]
  50. LOCAL "name
  51. MAKE "name READWORD
  52. IF NOT FindP "SCORE [Output []]
  53. LOCAL "right
  54. LOCAL "max
  55. LOCAL "percent
  56. MAKE "right READWORD
  57. MAKE "max READWORD
  58. MAKE "percent INT :right / :max * 100
  59. OUTPUT ( LIST :name :right :max :percent )
  60. END
  61.  
  62. TO SetResult :result :count
  63. IF EMPTYP :result [Stop]
  64. SETFIELDTEXT [] WORD "Name :count FIRST :result
  65. SETFIELDTEXT [] WORD "Right :count ITEM 2 :result
  66. SETFIELDTEXT [] WORD "Max :count ITEM 3 :result
  67. SETFIELDTEXT [] WORD "Percent :count ITEM 4 :result
  68. END
  69.  
  70. TO ! :comment
  71. END
  72.